O AUTOR: 


DELIO SANTOS LIMA e seguramente um dos maiores tecnicos 
no Brasil, reconhecido internacionalmente, sobre microcompu- 
tadores com logica Sinclair. 

Escreveu e publicou, em menosde tres anos, nada menosquese- 
te livros em mais de vinte e cinco edigoes, incluindo a primeira 
publicagao especifica para micros TK, NEZ, etc... 

“45 PROGRAMAS PRONTOS PARA RODAR” 

E o autor da unica coletanea de programas para Sinclair, genui- 
namente nacional, abrangendo as normas do IAPAS, Imposto de 
Renda e outras: 

“APLICAQOES SERIAS PARA TK 85 E CP 200“ 

Publicou a mais completa colegao de jogos em um unico volume: 

“30 JOGOS PARA TK E CP 200“ 
que, com programas desde2K, ate programas de 16K, como um 
Jogo de Damas e outros em codigo, consagrou-se como o ABC 
dos jogos 

No livro 

“CODIGO DE MAQUINA PARA TK E CP 200“ 

Ofereceu uma agradavel surpresa para aqueles que nao explora- 
vam as reais capacidades do computador Sinclair porfalta de um 
material completo e compreensivel. Trouxe um curso do Assem¬ 
bly Z80, com muitos macetes da 8KROM, mais de dez programas, 
um Dicionario do Assembly Z80, alem de comparar as ROMs dos 
ZX, TK e NEZ, etc... 

Criou um livro de consuita rapida do Basic Sinclair 
“DICIONARIO DO BASIC SINCLAIR” 

onde dividiu e classificou as diferentes instrugoes, comandos, 
fungoes e operadores Sinclair e os definiu em ordem alfabetica. 
Acresceu-o com os capitulos Contar e Economizar Memoria, 
alem de comparar o Basic Sinclair com os demais. 

Nao satisfeito com os perifericos existentes, mais uma vez ino- 
vou, publicando: 

“HARDWARE SINCLAIR” 

que oferece circuitos como RESET, FONTE, MONITOR E INVER- 
SOR DE VIDEO, EXPANSOES de RAM E ROM PARA 2, 4,8 e 16K, 
PORTAS IN-OUT, TECLADO, ESQUEMA DO MICRO, LAY-OUT 
DOS CIRCUITOS IMPRESSOS E Outros. 

O limite e a imaginagao. As possibilidades do micro ainda nao fo- 
ram de todo exploradas. Eis-: 

“200 DESENHOS PARA TK E CP 200” 
com mais de 200 desenhos para jogos e ilustragoes. Programas 
para edigao de desenhos, em Basic eem Linguagem de maquina, 
rotinas para copia instantantea do display, simulando movimen- 
tos, merging figuras, etc... Ensina as tecnicas de video, mapea- 
mento, movimento, etc... 
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PREFACIO 


Editado e distribuido por Micron Software Ltda. 
Sao Jose dos Campos — SP. 

Impresso por J.A.C. Editors Ltda. 


TODOS OS DIREITOS RESERVADOS 

Nos termos da Lei que resguarda os direitos autorais, e proibida a 
reprodugao total ou parcial, ainda que em sistemas similares, de 
qualquer forma ou por qualquer meio grafico, fotografico, mi- 
crofilmico, reprografico, fonografico e videografico. Vedadaa 
memorizagao e/ou a recuperagao total ou parcial em qualquer 
sistema de processamento de dados e a inclusao de qualquer 
parte da obra em qualquer programa comercializavel. 

A violagao dos direitos autorais e punivel como crime (art. 184 e 
paragrafos do Codigo Penal, conforme Lei N° 6.895 de 17.12.80) 
com pena de prisao e multa conjuntamente com busca e apreen- 
saoe indenizagoesdiversas — arts. 122,123,124 e 126 da Lei n° 
5.988, de 14.12.73, Lei dos Direitos Autorais. 


O objetivo deste volume nao e ensinar a nobre arte do desenho. 
Pretendo e transmitir conceitos para a codificagao de desenhos e 
figuras existentes em imagem de microcomputador. 

Evidentemente far-se-ao necessarios alguns conhecimentos so- 
bre o que e posSivel codificar, a memoria do video, programas 
que facilitam a edigao de imagens, que simulam movimento, 
etc... 


Aqui voce encontrara tudo isto e uma vasta colegao de desenhos, 
ja codificados, de forma a facilitar ao maximo a sua utilizagao. 
Va em frente. Pinte o sete. 


Delio Santos Lima 
Caixa Postal 100 
12200 Sao Jose dos Campos 
SP - Brasil 
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Alteragoes a serem feitas a esta edigao; 


pag. 

linha 

encontra-se: 

altere para: 

05 

26 

64 

65 

34 

19 

420 

435 

43 

11 

766 

770 

45 

25/26 


1115 CLS 

54 

20 

PEEK 1651 *PEEK 

PEEK 16511+256*PEEK 

54 

21 

1240 

1242 

58 

26 

32500 

32558 

64 

01 

LIST AG EM 3 

Cont.da listagem 2. 

65 

10 

4082 

LISTAGEM 3 4082 

66 

18 

3 rotinas 

5 rotinas 

66 

23 

160 

220 

18 

18 

18 

14 

22 

24 

horizontais 

verticals 

AT 20,C; 
vertical's 

AT C,20;“»” 
horizontais 

'19 

6 

AT L.30; 

AT 20,L;“B” 

19 

20 

21 

21 

25 

12*SIN X 

12*COS X 

21 

A 

12*SIN X 

12*COS X 

2 

19 

10 FOR N : 20 TO 45 

60 NEXT N 

10 FOR N=20 TO 30 

21 

22 

22 

20 

6 

12 

70 PLOT N,45 

100 NEXT N 

30 PLOT 45,N 

70 PLOT N,30 

50 FOR N s 20 TO 45 

100 NEXT X 

50 LET X=24 

50 LET N=24 

E. & O.E. 
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INTRODUQAO 


Comojadiziaaquele velho proverbio chines: “Meihor doquedar 
um peixe a quern tem fome, e ensinar-lhe a pescar”. 

Por mais ilustragoes e desenhos que este livro tivesse, certa- 
mente voce ainda poderia querer algo diferente. O meihor mes- 
mo e passartodas as informagoes de como desenhar no video do 
micro, restringindo as figuras de exemplos a cerca de trezentas. 

E bom ter sempre em mente as limitagoes da maquina para evitar 
decepgoes futuras. Nao sera possivel desenhar imagens com 
mais resolugao do que o video do sistema. Aqui usaremos ate 24 
linhas de 32 caracteressendoque cada posigao do video no mo- 
do grafico pode ser subdividida em 4 simulando um total de 3.072 
posigoes. 

Pode-se ainda obter uma resolugao de 768X8X8 pontos no video, 
porque cada caractere e formado por oito pontos em 8 linhas de 
TV, resultando em 49.152 pontos. Isto requer a alteragao do hard 
ware, sera de processamento lento, alem de consumir uma quan- 
tidade de memoria de que o sistema nao dispoe. E por isto nao se¬ 
ra alvo deste volume. 

Tendo apenas 3.072 posigoes de video, devemos considerar que: 

1. Nao poderemos representar com precisao imagens com gran¬ 
de numero de formas, pelo menos, nao de_ uma so vez. 

2. Fotografias e outras imagens com meios-tons sao mais dificeis 
de representar que desenhos a nanquim, como por exemplo; per- 
sonagens de estorias em quadrinhos. 

3. Quanto mais linhas de uma tela forem usadas, mais memoria 
de “video” para o video sera usada. 
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Nao e aconselhavel tentar criar movimentos em grandes imagens 
a partirda memorizagao de diferentes imagens, como em dese- 
nho animado e sim por alteragao da imagem memorizada. 

Nao, pelo menos em Basic. Por isto oferecemos o programs 
ENTER GRAPHICS em uma versao na linguagem da maquina 
com a opgao de animagao. Funciona pela copia instantanea das 

12 imagens da area das variaveis para o video, simulando A ORGANIZACAO DA MEMORIA 

movimento. Veja o exemplo da pagina 69. 


O microprocessador Z80 dos micros Sinclair possue 16 linhas 
(binarias) de enderegos podendo identificar 65536 (de 0 a 65535) 
posigoes de memoria (de 8 bitscada). Bit e apenas abreviatura de 
Binary digiT, i. e., diqito binario. 

Segundo criterios do construtor, a memoria dos computadores 
Sinclair foi distribuida como a seguir: 


ENDERECO 

UTILIZACAO 

00 000 

sistema operacional (8KROM) 

08 192 

reserva para sistema operacional 

16 384 

variaveis do sistema operacional (RAM) 

16 509 

programs do usuario 

(D. File) 

video 

(Vars.) 

variaveis do programs do usuario 

(E. Line) 

linha em edigao 

(StkBot) 

stack do calculador 

(StkEnd) 

area livre 

(SP) 

stack da maquina 

(ErrSP) 

stack para enderegos de sub-rotinas 

(RamTop) 

ultimo enderego da memoria em uso 


Os enderegos da tabela acima que nao estao definidos, e porque 
apresentam-se em posigoes variaveis da memoria devido as alte- 
ragoes do numero de bytes de memoria usada em cada uma des- 
tas areas. 

A ROM esta nos enderegos de 00 000 a 08 191. 

A RAM esta nos enderecos de 16 384 em diante. 
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Como foi mencionado acima, a area da memoria destinada ao 
usuario, situa-se nos enderegos 16 509 em diante, existindo, apos 
a mesma, uma serie de outras areas reservadas para diferentes 
propositos. Estas areas apresentam-se com comprimento ou 
consumode memoria variavel. Suas posigoes na memoria variam 
em fungao das variagoes de comprimento do programa em 
Basic, da RAM instalada, etc... 

O enderego de inicio de cada uma destas areas e arquivado pelo 
programa monitor (da ROM) na RAM do usuario nos enderegos 
16 384 a 16 508 e sao as denominadas variaveis do sistema opera- 
cional. Nao confundir com sistema de variaveis (do usuario). 

Os enderegos em que se encontram estas variaveis estao descri- 
tos no manual do seu equipamento. Citamos abaixo os mais 
usuais. 

(D. File) (16 396) 

(Vars.) (16400) 

(E. Line) (16 404) 

(RamTop) (16 389) 

Todas as variaveis do sistema mencionadas neste capitulo ocu- 
pam 2 bytes. Para se ler urn valor armazenado em dois bytes usa- 
se a regra: 

PRINT PEEK E+256*PEEK(E+1) onde E e o enderego dado. 

Para entender por que o valor do segundo byte e multiplicado por 
256 leia o capitulo BINARIO E HEXADECIMAL do livro CODIGO 
DE MAQUINA PARA TK E CP 200 ate a pagina 16 onde se le: 
“A razao: e a diferenga dos indices das potenciais do 2° byte”. 
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A MEMORIA DO VIDEO 


Denominada pelos projetistas da maquina de D. File (Display Fi¬ 
le), a memoria do video nao se encontra em enderegos fixos e sim 
flutuando no topo da memoria usada para o sistema de variaveis 
e programa. Usa a RAM do usuario. 

O video com 24 linhas de 32 caracteres correspondem a 24 X 33 
bytes na memoria do video. Uma linha ocupa 33 bytes, sendo 32 
caracteres e 1 para o termino da linha (New Line ou Enter). 

Cada caractere da tela ocupa urn determinado byte na memoria. 

Os enderegos da memoria de video variam de tempos em tempos, 
por questoes de FIRMWARE. O enderego de inicio, ou do primei- 
ro byte da memoria do video (D. File) e dado pela variavel do sis¬ 
tema D. File, enderegos 16 396 e 16 397. 

O D. File comega com o primeiro byte em valor 118 (New Line) e 
tambem termina por 118. 


O programa, a seguir, le os 32 primeiros bytes da memoria do vi¬ 
deo e inverte os caracteres, acrescentando 128 aos seus codigos. 
Rode preferivelmente em SLOW: 

10 LET DFILE = PEEK 16396+256*PEEK 16397 
20 PRINT “QUALQUER COISA” 

30 REM INVERTER UMA LINHA DO VIDEO 
40 FOR N=1 TO 32 
50 LETX=PEEK (D FILE + N) 

60 IF XOH8 THEN POKE D FILE+N, X+128 
70 NEXT N 
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A posigao de impressao, ou enderego da memoria de video onde 
a proxima impressao sera executada, pode ser identificada pela 
variavel do sistema denominada PRINT POSITION ou CC, COR- 
RENT CARACTER, enderego 16398. 

As duas linhas inferiores do video sao reservadas para edigao e 
inputs, mas podem ser usadas, desde que se altere a variavel do 
sistema do enderego 16418, cujo valor e habitualmente dois. Esta 
alteragao, por POKE 16418,0, por exemplo, nao funciona como 
comando direto, somente como linha de programs. Experimen¬ 
ter 

10 POKE 16418, 0 
20 FOR N=0 TO 23 
30 PRINT AT N, N; “OK” 

40 NEXT N 

Atengao: A variavel do enderego 16418 deve voltar ao valor 2 ou 
mais, antes de qualquer instrugao INPUT ou o programa sera 
“destruido”. 
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PLOT E UNPLOT 


O Basic em 8KROM do Sinclair ZX81, TK 82,83,85, CP200, etc..., 
possui os comandos graficcs PLOT e UNPLOT. Considerando 
que o video da maquina possui as posigoes representadas abaixo 
por quadrinhos (pixel), podemos assinalar ou apagar, qualquer 
um deles, desde que conhecidas as suas coordenadas (localiza¬ 
gao horizontal e vertical). 

Cada quadrinho ou pixel possui sua localizagao horizontal nu- 
merada de 0 a 63 e vertical de 0 a 43. 

PLOT difere de PRINT AT por varias razoes. Entre elas: 

■\ _ pi_OT nao requer e nao permite a especificagao do caractere a 
ser assinalado por utilizar-se de 1/4 do inverse space. 

2. Existem duas vezes mais posigoes de PLOT na horizontal e na 
vertical resultando em quatro vezes mais resolugao do que 

com PRINT. . 

3. A localizagao das linhas de PLOT e o inverso de PRINT. Veja 

abaixo 


43 



0 
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As posigoes foram numeradas de baixo para cima ao inves de 
cima para baixo para facilitar a construgao de graficos e seus ei- 
xos. 

A numeragao das colunas se fez da esquerda para a direita assim 

como com PRINT AT. TRAQANDO LINHAS E CIRCULOS 



PRINT 


21 t 

Experimente como comando direto, sem numero de linha. 

PLOT 0,0 
PLOT 0,43 
PLOT 63,0 
PLOT 63,43 

RELEMBRANDO: 

PLOT L,C linha coluna 
Use PLOT L,C evita confusoes. 


PRINT e PRINT AT 


Se voc§ chegou ate aqui sem conhecer bem PRINT e PRINT AT 
estamos mal. Leia no manual da sua maquina a descrigao defun- 
cionamento de PRINT e PRINT AT e releia este capitulo desde o 
inicio. 

Nao descrevemosaqui apenas para nao “reinventar a roda ou o ja 
inventado”. 


Nas horizontais e verticals nao ha qualquer misterio, nem gran- 
des possibilidades quer com PLOT ou PRINT AT. 

Quanto as linhas diagonals no video Sinclair “alguns experts’’ 
criaram ou copiaram equagoes que nao tem muitas solugoes ou 
opgoes, senao vejamos: 

UNHAS DIAGONAIS 

As diagonals podem ser tragadas a partir de “horizontais deslo- 
cadas uma ou mais posigoes na vertical para cada posigao de im- 
pressao deslocada na horizontal ou vice versa. O programa a se- 
guir ilustra esta proposigao: 

10 SLOW 
20 LET L=0 
30 LET 032 
40 PLOT C,L 
50 LET L=L+1 
70 GOTO 40 

Este programa como esta gera uma linha vertical. Acrescente: 
60 LET OC+1 ou 60 LET OOI 

que produzira uma linha diagonal de + 45° ou -45°. Experimen¬ 
te: 

60 LET OC+1.5 
60 LET OC+2 
60 LET OC+3 
etc... 


Para abrir a area remanescente do video volte para 
60 LET OC+1 
e altere tambem 
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50 LET L=L+2 ou LET L=L+3 
etc..., ou ainda use 

60 LET OC-1 ou 60 LET C=C-2 etc... 

Para trabalhar a partir de uma horizontal basta inverter a linha 40 
para: 

40 PLOT L,C 

Para ajusta la ao centro da tela use 
30 LET 021 

Para tragar diagonals com PRINT AT ou qualquer outro caracter- 1 
re o princi'pio e o mesmo. Basta alterar 

40 PRINT AT C,L; ou 40 PRINT AT L,C; 

e centrar a linha por 

30 LET Ol ou 30 LET LET 016 


LINHAS HORIZONTAL 

Escolhe-se qual a linha a ser tragada, de 0 a 43 para PLOT ou de 0 
a 21 para PRINT AT. Escolhemos a 20. 

10 FOR OO TO 63 
20 PLOT 20,C 
30 NEXT C 

Ou entao 

10 FOR OO TO 20 
20 PRINT AT 20,C; 

30 NEXT C 


10 FOR L=0 TO 63 
20 PLOT L,30 
30 NEXT L 

Ou entao com PRINT AT 

10 FOR L=0 TO 31 
20 PRINT AT L,30; 
30 NEXT L 


CIRCULOS 

Os circulos podem ser facilmente desenhados com o uso das 
fungoes trigonometricas SEN e COS. Devido a pequena precisao 
do video, os circulos ficam melhores, se apenas tracejados como 
com esta rotina: 

10 FOR F*1 TO 60 
20 LET X=F/5*PI 
30 LET A=21+6*SIN X 
40 LET B=22+6*COS X 
50 PLOT A,B 
60 NEXT F 

O numero de pontos por circulo e de 12, conforme a listagem da- 
da. Para altera-la para 20, insira: 

20 LET X=F/10*PI 

Para alterar o diametro do circulo para o dobro por exemplo, alte- 
re: 

30 LET A=21 + 12*SIN X 
40 LET B*21+12*SIN X 


LINHAS VERTICAL 

Escolhe-se qual a coluna a ser usada, de 0 a 63 para 
PLOT ou de 0 a 31 para PRINT AT. 

Escolhemos a 30. 
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FIGURAS GEOMETRICAS 


Figuras e formas geometricas podem ser desenhadas por pro- 
g ram agio com muito mais facilidades do que se entradas ponto a 
ponto da tela. A seguir alguns exemplos: 

1. CI'RCULOS 

Devido a pequena precisao do video, os circulos ficam melhores 
se apenas tracejados como com esta rotina que utiliza asfungoes 
SIN e COS: 

10 FOR F=1 TO 60 
20 LET X= F/5*PI 
30 LET A=21+6*SIN X 
40 LET B=22+6*COS X 
50 PLT A,B 
60 NEXT F 

O numero de pontos por circulo e de 12, conforme a listagem aci- 
ma. Para altera-lo para 20, insira: 

20 LET=F/10*PI 

Para alterar o diametro do circulo para o dobro por exemplo, alte- 
re: 

30 LET A=21+12 * SIN X 
40 LET B=21 + 12 * SIN X 

2. QUADRADO 

10 FOR N=20 TO 30 
20 PLOT 19,N 
30 PLOT N,20 
40 PLOT 30,N 


50 PLOT N,30 

Para alterar o tamanho, alterar os valores 20 e 30. 

Observar que a impressora TS 2040 deforma os caracteres ligei- 
ramente, quanto ao formato quadrado apresentado no video. Ou 
seja: urn quadrado no video pode resultar em urn retangulo na 
impressora TS 2040, porque se cada urn dos caracteres e alonga- 
do, a imagem toda o sera tambem. 

3. RETANGULO 
Em pe: 

10 FOR N=20 TO 40 
20 PLOT 20,N 
30 PLOT 30,N 
40 NEXT N 
50 FOR N=20 TO 30 
60 PLOT N,20 
70 PLOT N,40 
80 NEXT N 

Para “deitar” o retangulo do programs anterior, altere nele: 

10 FOR N=20 TO 45 
70 PLOT N,45 

4. TRlANGULO EQUILATERO 

10 FOR N=21 TO 37 
20 PLOT N,20 
30 NEXT N 
40 LET K=1 
50 FOR N=20 TO 29 
60 PLOT N,N 
70 PLOT N+9.30-K 
80 LET K=K+1 
90 NEXT N 

5. TRlANGULO RETANGULO 

10 LET X=16 
20 FOR N=25 TO 51 
30 PLOT N,X 
40 NEXT N 
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50 LET N=24 
60 FOR X=16 TO 25 
70 PLOT 25,X 
80 PLOT 3*N-20,X 
90 LET N=N-1 
100 NEXT N 

6. TRIANGULO OBTUSO 

10 LET X=16 
20 FOR N=24 TO 52 
30 PLOT N,X 
40 NEXT N 
50 LET X=24 
60 FOR X=16 TO 30 
70 PLOT N,X 
80 PLOT 3*N-20,X 
90 LET N=N-1 
100 NEXT X 


FIGURAS TRIGONOMETRICAS 


As rotinas basicas para tragarem os graficos das fun- 
goes trigonometricas estao nos manuais do equipamentos e em 
outros livroscomo Dicionario do Basic Sinclaire por istoaprovei- 
tamos a oportunidade para apresentar “outras formas” com tri- 
gonometria: 

1. ESPIRAL CONICA 


A seguir, as figuras produzidas por estes programas. 
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2. FORMA OVAL 


3. SIN+SIN INV 



Para diminuir o tamanho, altere: 

4.0BPRINT AT 8*C0S (Y)+11,13*51 
N iY) +15.; "W 
50 NEXT X 



4. 1.5SIN+SIN INV 
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Altere 


4© IF 2=1 THEN LET Y=X*PI/40 
50 IF 2=2 THEN LET Y = -X*Pl'/4© 


5. 2 SIN+2SIN INV 


A 


A A A 

i I 




V 




w 


Altere 

4© IF 2=1 THEN LET Y=X*PI/30 
50 IF 2=2 THEN LET Y=-X*PI/30 


FIGURAS SIMETRICAS 


Uma infinidade de figuras semelhantes as apresentadas a seguir 
podem ser geradas por um unico programa com pouco mais de 
dez linhas. 

O bom efeito visual destas imagens e dado pela sua simetria e 
aleatoriedade. Utilizando-se do geradorde numeros randomicos 
o programa sorteia uma posigao qualquer dentro de 1/4 da tela. 
Esta posigao e tambem marcada em cada uma das outras partes 
de 1 14 da tela, equidistante das bordas dos seus respectivos la- 
dos opostos e o resultado e este: 
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O programs utilizado: 




O programs anterior trabalha com PRINT'*”. A segui r propomos 
outro programs similar utilizando PLOT que gera figuras tais co- 
mo: 
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PARTE II 


ENTER GRAPHICS EM BASIC 
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ENTER GRAPHICS EM BASIC 


Este programs visa facilitar a entrada de figuras com 
caracteres graficos codificados ou entra-las, desenhando com 
PLOT e UNPLOT ou PRINT com qualquer caractere. Armazena 
ate 12 telas completas com 22 linhas. Possibilita alteragoes futu- 
ras, listagem das figuras, dos codigos usados, gravagao, alem de 
confer um sub-programa para carregar as rotinas emcodigo 
como Merging, Scrool e outras que rodam o video e podem fazer 
o Eduardo Busqueta dangar, a caveira falar ou os tanquese trens 
se moverem, escapando aos seus tiros. 


DIGITANDO OS CARACTERES GRAFICOS 

Guando aparece uma figura ffl u BS identificar ou mesmo sole- 
trar os caracteres usados mostra-se algo confuso, pois no exem- 
plo dado poderiamoster difer entes s i'm bolos, resultando na mes- 
ma figura, como e o caso de e EJEfi . 

A identificagao e leitura dos caracteres graficos nao e tao simples 
quanto com os alfanumericos, mas para nossa felicidade Sir Sin¬ 
clair colocou apenas um simbolo grafico em cada tecla alfanu- 
merica. Por isto basta simplesmente representarmos os caracte¬ 
res graficos pelas letras e numeros de suas respectivas teclas. 
Por exemplo: H+F m i-U^ pode ser representado por 
1 2 3 4 5 6 7. 


Confira no teclado do micro. 

O programs proposto, a seguir, transforms as letras e numeros 
digitados em seus equivalentes simbolos graficos, comparando 
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as strings «$ = " * “* 1 Fi .MS* 1 

e B $ = " 12745TEfiD5PQU6P:S Y3 HGF ’' 

Sera a mesma coisa que digitar os caracteres graficos sem preci- 
sar usar SHIFT-GRAPHICS, uma vez que as teclas serao as mes- 
mas. 

Utilizando-se dos caracteres alfanumencos para a codificagao 
dos graficos, ficam as seguintes restrigoes: 

A. Nao se podera usar nas figuras as letras e numeros que sejam 
“codigos” dos graficos. Nao e o caso de O,0,X,V, etc... Tambem 
nao serao usaveis o N, o P e o ponto. 

B. Para usar os caracteres alfanumericos como 0,0,X ou os inver- 
sos, eles devem estar incluidos ao final das strings A$ e B$. No 
programa listado as strings estao se m 0000. Para que, ao digitar 0 
saia o inverso e 0 idem, altere o final de A$ para OffiB. 
Como estao, as strings A$ e B$ possuem 22 caracteres. Caso vo¬ 
ce altere o comprimento das mesmas sera preciso alterar “o 
comprimento” do looping da linha 865 FOR T=1T026 que faz a 
conversao codigos para graficos. Igualmente com a linha n° 
420 

C. Com SLOW nao se pode digitar SPACE (espago) diretamente, 
porque esta tecla atua como BREAK. Obtem-se espago, digitan- 
do a tecla ao lado (ponto). 

A tecla BREAK/SPACE atua como Break, quando o micro esta 
em RUN e atua como SPACE no modo de edigao ou durante 
INPUTS. Na versao SLOWo programa “roda” continuamente em 
urn looping de INKEY$, enquanto que na versao FAST e INPUT 
variavel. 

O programa conforme esta listado requer SLOW, devido o uso de 
INKEYI. 


1 REM XXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
10 LET K“Q 
25 CLS 
27 SLOW 

30 PRINT ,,,,"EDITOR DE VIDEO” 
35 PRINT , ^"PARA'V'DIGITE" 

40 PRINT , ,"APAGAR/INICIAR" , " 1 

42 PRINT "ALTERAR/CONT. "," 2 “ 

45 PRINT "LISTAR FIGURA","3" 


50 PRINT " LI STAR CODIGOS", H 4" 
60 PRINT "GRAVAR","5" 

70 PRINT "DESENHAR","6" 

80 INPUT X 

85 IF K~0 AND X<>1 THEN GOTO 8 

0 

87 IF X=7 OR X=8 OR X>9 THEN G 
OTO BO 
90 CLS 

95 GOTO X*100 
100 REN INPUT STRING 

102 PRINT " VAI APAGAR 0 ARQUIVO 
.. ? DIGITE 1" 

103 INPUT NT 

104 IF NT<>"1” THEN GOTO 25 
115 CLS 

120 PRINT "ESTE ARQUIVO ACABA D 
E SER DIMEN—SIONADO PARA 12 IMAG 
ENS DE 22 LI” 

125 PRINT "NHAS COM 32 CARACTER 
ES CADA UMA." 

128 PRINT ,,"PARA ALTERAR DIGIT 
E BREAK E,","RESCREVA AS LINHAS 
135 A 150." 


130 

CLEAR 

135 

DIM 

F* ( 12,22,32) 

140 

LET 

K* 1 

145 

LET 

1 — 12 if 

148 

LET 

C—32 

150 

LET 

L-22 

152 

DIM 

X* (32) 

154 

LET 

K*1 

156 

* * 

LET 

A**" * — * I .T i v UmI r« • 

zmSwt 

157 

HOF" 

LET 

B*«" 12745TEADSPQW6R8Y3 

158 

LET 

C*« 


162 PRINT ,,"DIGITE UMA TECLA" 

163 LET NT*INKEY* 

164 IF N*="" THEN GOTO 163 

165 CLS 

166 FOR Z=1 TO I 
170 LET N*0 

172 LET N=N+1 

175 IF N-23 THEN GOTO 25 

176 GOSUB 800 

177 POKE 16418,2 

178 IF X*(i>="M" THEN GOTO 25 

179 IF X*(1>="C" THEN GOTO 185 

180 'IF X*(l TO 4) 58 "COPY" THEN G 
OTO 895 

184 GOSUB 855 
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185 PRINT AT O+N-l,O;F*<Z,N) 

195 IF N<23 THEN GOTO 172 

196 CLS 

197 NEXT Z 

198 GOTO 25 
200 REM ALTERA 

202 PRINT "QUAL IMAGEM ALTERA O 
U CONTINUA?" 

204 INPUT Z 

210 PRINT "QUAL LINHA ALTERA OU 
CONTINUA?” 

215 PRINT "DE 1 A M iL;"?" 

217 INPUT N 
220 CLS 

224 PRINT AT 0,0; 

225 FOR X~1 TO N 
230 PRINT F*(Z,X> 

235 NEXT X 

240 GOTO 176 
245 GOSUB 855 
250 PRINT F$(Z,N) 

260 PAUSE 3E4 
270 GOTO 25 
300 REM LISTA FIGURA 
302 PRINT “QUAL A IMAGEM? DE 1 
A "s I; ••?” 

304 INPUT Z 

305 FAST 

306 CLS 

310 FOR N=0 TO 21 

320 PRINT AT N, 0; FT-(Z , N+1 > 

330 NEXT N 
335 SLOW 

370 LET K*=INKEYT 

377 IF KT^'C” THEN COPY 

380 IF K*- ,, P H THEM GOTO 390 

385 IF KT“ ,, M" THEN GOTO 25 

387 GOTO 370 

390 LET Z-Z+l 

392 GOTO 306 

405 FAST 

4io PRINT "QUAL A IMAGEM?" 

420 INPUT Z 
422 CLS 

425 FOR IM=1 TO L 
430 FOR B~1 TO C 
432 LET XT-FT(Z,N) 

435 FOR T*1 TO 22 
440 IF XT(B)-AT <T) THEN PRINT B 
T ( T ) ; 

445 NEXT T 
450 NEXT B 
455 PAUSE 200 


459 NEXT N 

460 SLOW 
470 GOTO 370 
500 REM SAVE 

510 PRINT ;;; ; "ROTljNA P/ SAVE" 
520 PRINT ;;"DIGITE 0 NOME" 

530 INPUT NT 

540 PRINT "DIGITE NEW LINE," 
550 PRINT "A SEGUIR LIGUE 0 CAS 
SETTE." 

560 INPUT LT 
570 SAVE NT 
580 GOTO 25 
605 LET ZT="B" 

610 LET Z=1 
615 LET X=0 
620 LET Y~0 
625 LET LT=INKEYT 
630 G ( OSUB 690 

640 IF LT="F" THEN GOTO 780 
644 IF LS*="C" THEN GOTO 700 
650 LET Y~Y+(LT="7 M )-<LT“"6") 
655 LET X=X+(LT="8")-(LT="5") 
660 GOSUB 680 
662 IF X>63 THEN LET X=63 
666 IF Y>43 THEN LET Y=43 
668 PLOT X,Y 

670 IF Z=0 THEN UNPLOT X,Y 
672 GOTO 625 
680 IF X<0 THEN LET X=0 
682 IF Y<0 THEN LET Y=0 
686 RETURN 

690 IF LT="E" THEN LET Z = 1 
692 IF LS="A" THEN LET Z«0 
694 RETURN 
705 LET L$=“" 

710 UNPLOT X,Y 
720 LET LS*INKEYS 
725 GOSUB 690 

735 IF L$~"P" THEN GOTO 625 
737 IF L*="F" THEN GOTO 780 
740 LET X«X+<L*« ,, 6">-(L*» M 7 , '> 
745 LET Y=Y+(L*=="8 M )--(L$="5"> 
750 GOSUB 680 
755 IF X>31 THEN LET X=31 
760 IF Y>21 THEN LET Y«21 
762 IF L*="C" OR L*="A" OR L*=" 
E" OR L$= H P" OR L$="F" THEN GOTO 
775 

770 IF CODE L*>37 THEN LET’ Z$=C 
HR* ( (CODE L$> +128) 

771 IF L*» ,, . M THEN LET Z$=" » 

775 PRINT AT X,Y;Z$ 

776 IF Z=0 THEN PRINT AT X,Y;" 
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778 GOTO 720 

780 FAST 

781 LET L=1 

782 LET DF~PEEK .16396+256*PEEK 
16397 

783 LET N=1 

784 LET C=1 

785 FOR F~1 TO 726 

787 IF C=33 THEN LET L=L+1 

788 IF 033 THEN LET OO 

789 IF L=23 THEN GOTO 25 

790 IF (PEEK <DF+F)< >118) THEN 
LET FT (N , L , C) —CHRT (PEEK (DF+F)) 

791 LET OC+1 

792 NEXT F 
794 GOTO 25 
BOO LET 2 $-“" 

801 SLOW 

802 POKE 16418,0 

804 PRINT AT 22,0; " ; Z 

,N; ,, »aajKi9 M 
806 PRINT AT 23,0;CT 
808 PRINT AT 23,0; 

810 LET KT-INKEYT 

812 IF KT-". " THEN LET KT=" " 

815 IF Kt-"" THEN GOTO 810 

817 IF K$~"N" THEN GOTO 841 

818 IF CODE KT=118 THEN*-RETURN 
820 LET ZT=ZT+KT 

825 LET XT=ZT' 

835 PRINT KT; 

037 LET YORND+RND 

840 GOTO 810 

841 LET L.EN=LEN ZT 

842 PRINT AT 23,LEN-1;;AT 23 
,LEN-1; 

843 IF LEN ZT>1 THEN LET ZT=ZT< 

1 TO (LEN-l)) 

844 LET XT=ZT 

845 GOTO 837 
855 REM CONVERTS 
857 FAST 

860 FOR B=1 TO C 
865 FOR 7=1 TO 22 
870 IF XT(B)-BT(T) THEN LET FT( 
Z,N,B>-AT(T) 

880 NEXT 7 
885 NEXT B 
890 RETURN 

895 COPY 

896 LET XT-"" 

897 PRINT AT 21,0;XT 

898 COPY 

899 G010 176 


O MENU 

1- APAGAR INICIAR 

Apos digitar e gravar o programa, comece com RUN e oppao 1. 
Esta rotina Ira apagar todo o arquivo ja existente, se houver. Por 
isto, antes e pedida uma confirmapao. 

0 numero de imagens a serem armazenadas esta prefixado em 
12, mas pode ser alterado. Quanto maior o numero de imagens, 
maior sera o consumo de memoria e o tempo de gravapao. Por 
exemplo: Sem rodar o programa ou apos CLEAR, ele ocupa±3 
minutos de gravapao. Para 6 imagens±5 minutos e para 12 ima¬ 
gens ±8 minutos. Veja o Enter Graphics em codigo, oppao 5. 

Para alterar o numero de imagens para 6 por ex., altere as linhas 

135 DIM F$(06,22,32> 

145 LET 1=6 

A entrada de cada imagem e feita linha por linha. 

No video aparecera: 




Impresso nas linhas22 de 23. Linhas normalmente usadasparao 
cursor (edipao e Inputs). Isto e obtido pelo comando da linha 802. 
Se voce quiser usar este “truque” em outros programas, observe 
que, antes de qualquer Input, deve-se aplicar o comando da linha 
n° 177. 

A linha que apresenta os numeros inversos e a linha usada para 
edipao. Cadacaractereentrado iraaparecernela, nasuaposipao. 
Isto e, coluna 0,1,2 e assim por diante. Isto facilita a localizapao e 
a identificapao do caractere em digitapao. O termino da linha e 
dado por New Line (Enter)e nao e preciso completar o final com 
espapos. 

Nao use Space ou ocorrera BREAK. 

Para produzir espapo digite ponto (tecla ao lado do SPACE). 

Para se repetir uma tecla, basta mante-la presa por algum tempo. 

A entrada e feita com o uso de INKEY$. A entrada pode ser mais 
rapida, alterando-se o retardo de tempo da linha 837 LET 
YU=RND**RND para 837 LET YU = RND*RND*RND que nao sera 
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tao lento quanto RND**RND. 

Caso voce digite algum caractere errado, nao adianta tentar apa- 
ga-lo por DELETE (Shift-0) ou usar as facilidades de edigao como 
cursor left, cursor right, porque nao se esta em um comando de 
INPUT ou em EDIQAO e sim em RUN com o uso de INKEYf. 

Para apagar digite N e o caractere a esquerda sera apagado. 
Para corrigir entre a seguir o novo caractere. E so. 

Se o final da linha for espagos, nao e preciso digita-ios. Digite 
New Line (Enter)e aguarde. Devera demorar uns 30 segundos na 
execugao da sub-rotina de conversao alfanumericos X graficos, 
ate que seja impressa a 1 a linha de si'mbolos graficos da figura. 

Para sair desta rotina sem completar as 22 linhas, digite uma li¬ 
nha igual a M (Menu). 

Para pular a linha em edigao sem apaga-la ou ter que reescreve- 
la, digite uma linha igual a C (CONT). 

Caso acidentalmente voce tenha acionado BREAK, ate que se 

acostume usar o ponto como espapo, Nao use RUN que apagara 
as variaveis (imagens). USE GOTO 25 que 6 o menu e continue na 
opgao 2. 


RESUMO DOS COMANDOS 


TECLA 


USO OU SIGNIFICADO 


PONTO 

N< 

Space/Break 
M + New Line 
C + New Line 
New Line 

1 2345678QW 
ERTYASDFGH 


Espapo 

Apaga o caractere a esquerda 

Break 

Goto Menu 

Continua na linha seguinte 
Final da linha 

O respectivo simbolo grafico 
contido na tecla 


2- ALTERAR/CONT 

Quando acionada, esta rotina pede o numero da imagem e o nu- 
mero da linha a ser alterada ou, de onde se quer continuar. 

A seguir a imagem indicada e listada ate a linha indicada, conti- 


nuando na rotina de entrada de dados, opgao 1 do menu. 
A alteragao e feita, reescrevendo-se a linha em questao. Ela sera 
impressa exatamente sobre a linha anterior (caso de erro) e a fi¬ 
gura no video ficara tambem corrigida. 

Nesta rotina tem-se as opgoes de edipao da opgao 1, pois conti¬ 
nua naquela. 

3- LISTAR FIGURA 

As figuras sao armazenadas na matriz F$(12,22,32). 

Sao ate 12 figuras de 22 linhas com 32 caracteres cada. 

PRINT F$(1,2) imprime a primeira linha da primeira imagem. 
PRINT F$(1,2) imprime a segunda linha da primeira imagem. 
PRINT F$ (2,1) imprime a primeira linha da segunda imagem. 
PRINT F$ (1,1,1) imprime o primeiro caractere da primeira linha 
da primeira imagem. 

Para se executara impressao de uma imagem completa, com 22 
linhas sera preciso o looping a seguir: 

7000 FOR N=1 TO 12 
7010 PRINT F$(1,N) 

7020 NEXT N 

Este exemplo ira imprimir as 22 linhas da imagem 1. 

A opgao 3 do menu faz justamente isto, perguntando-lhe qual a 
imagem a listar. 

Ao final da listagem, digite: 

M para Menu 
C para Copy (impressora) 

P para proxima imagem 

Caso voce queira imprimir a imagem por um comando direto do 
tipo PRINT 1$, sem usar o looping, use antes: 


7000 DIM l$(710) 

7010 FOR N=1TO 22 
7020 LET l$=l$+F$(1,N) 

7030 NEXT N 

A seguir, PRINT 1$ imprimira toda a imagem. 
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4- LISTAR CODIGOS 

Os codigosou caracteres alfanumericos que representam os gra- 
ficos nao sao armazenados. Logo apos a edigao de uma linha os 
codigos sao transformados em seus equivalentes simbolos grafi- 
cos e armazenados na matriz F$(I,L,C). 

Caso Ihe interesse, os codigos de uma imagem podem ser recu- 
peradose listados poresta opgao, que pede o numero da imagem 
a ser descodificada, ou melhor, codificada. 

A listagem dos codigos e feita pela conversao dos simbolos grafi- 
cos armazenados em F$(I,L,C), em processo inverso ao da opgao 
1 . 

Esta rotina e lenta, ainda que rodada em FAST. Apos a conversao 
de cada linha, esta e mostrada. 

Ao final, digite: 

M para Menu 
C para Copy (impressora) 

P para proxima listagem. Continua a listar a proxima figura e nao 
os codigos. 

5- GRAVAR 

Esta rotina permite gravar o programa e suas variaveis (imagens). 
Continua no menu apos a gravagao ou apos a carga. 

6- DESENHAR 

Esta rotina permite desenhar diretamente no video do micro 
usando o pixel de PLOT e UNPLOT ou qualquer caractere com 
PRINT AT. 

A imagem ao final e armazenada na variavel F$ para posterior re- 
cuperagao e impressao. 

Os usos e aplicagoes desta rotina sao totalmente distintos e dife- 
rentes da opgao 2. 

As facilidades de edigao de “Desenhar no Video” sao: 

1. A impressao comega na posigao 0,0 com PLOT 

2. Para comutar para PRINT Caractere digite C. Indica com inver¬ 
se space 


3. Para voltar para PLOT digite P. 

4. Para deslocar a posigao de impressao sem escrever, digite A de 
Apagar. Vale igualmente com PRINT e PLOT. 

5. Para voltar a escrever digite E. Vale igualmente durante PRINT 
e PLOT. 

6.0 deslocamento da posigao de impressao e dado pelas teclas 

4. <— T 

7. Durante PRINT, para mudar de caractere, digite o desejado, 
excluindo-se os de comando (C,P,A,E,F e.). O caractere digitado 
aparecera no video em sua forma inversa. Para retirar esta inver- 
sao retire o + 128 existente a linha de numero 766. Para voltar a 
inverse space NAO digite SPACE,porque ocorrera BREAK. Use o 

que voltara ao inverse space “a”. 

Caso, por esquecimento, voce acione BREAK, NAO digite CONT 
que inclui CLS e apagara o video. Use GOTO a linha indicada no 
canto inferior do video, ao lado do codigo de reportagem de 
BREAK 01 

8. Ao termino do desenho, digite F para armazenar a imagem na 
variavel F$. 

9. Para recuperar e imprimir a imagem use a opgao 3 do MENU. 

USANDO AS FIGURAS 

Se voce ja carregou ou pretende carregar alguma figura com o 
uso do programa Editor, eis algumas das possibilidades de apli- 
cagao da(s) mesma(s): 

1- Simplesmente como estao, em Basic, listando-as no programa 
Editor ou criando programas a partir delas, como por exemplo: 
aula de geografia ou jogos com os mapas, figuras que “falam” 
enquanto uma mensagem e impressa, estorias em quadrinho, ta- 
pegaria, figuras geometricas, trigonometria, etc... Sempre com 
movimentos lentos ou pequena area de movimento. 

2- Com rotinas em codigo, inseridas no programa Editor, para 
produzirem movimentos rapidos como: copia instantanea do vi¬ 
deo, scrool para a direita ou para a esquerda e outras que podem 
fazer os personagens dangarem, os tanques e trens se moverem. 
Com o auxilio das rotinas no codigo da maquina, obtem-se movi¬ 
mentos rapidos de toda a imagem. 

As figuras inseridas com o programa Editor podem sertranspor- 
tadas para outros programas ja previamente escritos, tanto por 
uma rotina em Basic como no codigo da maquina. 
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USANDO AS FIGURAS SO COM BASIC 


A seguir propomos alguns exemplos praticos de utilizagao das 
imagens em Basic, como movimento (de labios) com ou sem 
mensagem impressa, aula de Geografia, de Geometria, etc... 

Para jogos e movimentos voce, inevitavelmente, devera usar o 
ENTER GRAPHICS na versao em codigo, bem como as suas roti- 
nas adicionais, tambem em codigo. 

A utilizagao destes programas nao requer maiores conheci- 
mentos alem do Basic. 


EXEMPLO A — MOVIMENTO DE LABIOS 


Propaganda de Escolas de Danga, Computagao, Linguas, Avia- 
gao, etc... usando respectivamente as figuras do Eduardo Bus- 
queta, do Humanoide, do Charles Chaplin, do Santos Dumont, 
etc... 

Como o Basic e um tanto lento, nao vamos tentar impor grandes 
movimentos as imagens. Se nos limitarmosapenasa mover os la¬ 
bios, teremos velocidade ate demais.sendo necessario um retar- 
do de tempo, como voce vera. 

Contorme a ilustragao da pagina 77, veremos que os labios do 
Eduardo Busqueta (parte inferior) estao^_16,16; com os carac- 
teres graficos das teclas 7 e 1 que sao BE. 

Parafaze-lofalar, bastaalternarmos a impressao dos caracteres 
HE com os , com algum retardo de tempo. 


atenqao 

As coordenadas AT 16,16; nao correspondem ao elemento (16,- 
16) da matriz F$, porque os elementos da matriz se iniciam em 1 
(um) e as coordenadas de PRINT AT se iniciam em em 0 (zero). 

A posigao da tela PRINT AT 16,16 corresponde ao elemento 
(17,17) da matriz, ou seja: F$ (1,17,17) e F$ (1,17,18) sao elementos 
da matriz F$ que correspondem aos labios inferiores do nosso 
personagem. I e o numero da imagem. 

Isto e apenas para voce le mbra r. Por ora vamos u sar d iretamente 
no video PRINT AT 16,16; HE e PRINT AT 16,16; HEt apos a im¬ 
pressao da matriz F$. 

Acrescente ao programs ENTER GRAPHICS, versao BASIC, a ro- 
tina abaixo: 

1 REM NUNCft USE RUN - USE GOT 

O 1 



GOTO 

1000 


rh rs rs 

JL «iL» KJ 

PRINT- 

1 ' U U H L 

fl IM 

1010 

INPUT 

I 


1020 

FOR N 

= 1 TO 

2 2 

10 O 0 

PR INT 

F $ ( I . 

N) 

104.0 

NEXT 

N 


1060 

FOR N 

= 1 TO 

10E4 

1070 

PRINT 

9T 16 

16*; 

1030 

LET V 

UaRND* 

•* R N 0 

1090 

PRINT 

RT 16 

16; “ 

t cr 

_L JL •_» ' 

NEXT 

h t 
l 4 



EXEMPLO B — MENSAGEM COM O MOVIMENTO 
DE LABIOS 


Esta continuagao da rotina anterior vai fazer com que o Eduardo 
Busqueta fique falando (movendo os labios) com a mensagem 
“DIGITE UMA TECLA” impressa na tela. Digitando-se uma tecla, 
nao vale BREAK, aparecera a primeira linha da mensagem e, a ca- 
da tecla pressionada, a mensagem sera trocada at6 a terceira li¬ 
nha, repetindo-se. 

A mesma coisa voce podera fazer com os outros personagens 
fornecidos. 

A seguir, a listagem a ser acrescida ao programs “ENTER GRA¬ 
PHICS”, versao BASIC, com a rotina do exemplo A: 
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EXEMPLO C — GEOGRAFIA 


Utilizando-se mapas fornecidos ou outros de sua autoria, pode- 
mos facilmente transforma-los em aula, teste, jogo ou simples 
ilustragoes. 

Por exemplo: Carregue com o ENTER GRAPHICS o mapa do Bra¬ 
sil e suas regioes na ordem abaixo: 


IMAGEM N° 
UM 
DOIS 
TRES 
QUATRO 
CINCO 
SEIS 


DESCRIQAO 

BRASIL 

REG I AO NORTE 
REG I AO NORDESTE 
REG I AO CENTRO-OESTE 
REG I AO SUDESTE 
REG I AO SUL 


Acrescente a gravagao do ENTER GRAPHICS com os mapas aci- 
ma a rotina a seguir. E a simulagao de um teste aleatorio das re¬ 
gioes. Voce pode, por exemplo, fazer a mesma coisa com os es- 
tados e as capitals ou com os continentes e os paises. 


1 

REM NU 

NCR USE RUN - USE 

‘ -L 

GOTO 1 

000 

1000 

PRINT 

11 U B R Ho IL E U H tj 

0 ES 



1010 

PRINT 

'’ U 0U p ER GUNT R R 0S 

H DOS 

DO BRR 

SIL" 

1020 

PRINT 

"DIGITE UMH TECLh 

1030 

LET N $ 

= INKEY $ 

104-0 

IF N$ = 

THEN GOTO 133© 

1050 

CL 5 


1060 

PRINT 

UMh DEIXh ," 

■1 r* 

- 1 - KJ 

PRINT 

, , "ESTE EH 0 BRR5 

EGIUNHL „ - n 

„ 

1060 

GO SUB 

1630 

1085 

CL 5 


1093 

FOR N 

= 1 T~i 22 

110© 

PRINT 

F $ t I 7 N ) 

111© 

NEXT N 


113© 

GOSUB 

1630 

115© 

DIM 6$ 

( 6 J 

HF.R 

LET 8$ 

i 1)= n BRHSIL n 

116© 

LET 6$ 

(2) ="NORTE 7 

1165 

LET B $ 

(3i =" NORDESTE" 

117© 

LET B$ 

(4)CENTRO-OESTE 
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1175 

1180 

1500 

1 O iVi c? 


1250 

1530 

1220 

IRQ 

1550 

1560 

1570 


LET B$(5)="5UDES 
LET B i (65 ~ ” 3 U L " 
CLS 



PRINT F$ (S i N) 
NEXT N 



PRINT RT 51,0; ' 5 Q U R L E 


INPUT R4 

IF R4~B$(Si THEN GOTO 
PRINT RT 21,8; NJOCE E 


R REG 

13 O O 
RROU . . 


1560 GOSUB 1600 
1290 GOTO 1520 

1300 PRINT RT 21.0;“PfiPflBENS. E 
R REGIRO ";R$ 

1310 GOSUB 1608 
1320 GOSUB 1600 
1330 GOTO 1200 
1600 FOR T=1 TO 100 
It* 10 Nt XT T 
1650 RETURN 
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EXEMPLO D — GEOMETRIA 


As figuras geometricas basicas podem ser facilmente utilizadas 
em aulas ou testes. 

Digite as rotinas do capituio !l — Figuras Geometricas numera- 
das, como a seguir, SEM o programa ENTER GRAPHICS. 


ROTINA DO 

NUMERAR DE 


QUADRADO 

101 

A 

190 

retAngulo 

201 


290 

CIRCULO 

301 


390 

TRIANGULOS EQUILATERO 

401 


490 

TRlANGULO OBTUSO 

501 


590 

triAngulo retAngulo 

601 


690 


A seguir acrescente: 


5 L ET 2 = I NT ( R N D * 6 + 1) 
10 GOSUB 2 ic 100 
15 PP TNT ftT 1 F; . 0 ; "Ci! !fil 


c:. .i.! 'i i 3s 

5 5 IF X & < > N $ T H E N G OT O 7 0 

3 0 P R I NT RT 13,0 1 ‘ P R R ft B E M S , 


50 CLS 
60 GOTO 1 

7 O P RINT RT 13,0; “UOCE ERR OU- 


. O «_-* U { U kJ 

100 LET N$ = ,f QUftDRfi 

19 0 R E i ’ U R N 

500 LET N $ = '' R ET ftNG 

290 RETURN 

3 © 0 L E T N $ ~ ‘ ’ C IR C U L 

390 RETURN 

2 00 LET N$ = '' TRIftNG 

290 RETURN 


ULO EOUIL 


IJLO OBTUSO ** 


690 RETURN 
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PARTE III 


ENTER GRAPHICS EM CODIGO 
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ENTER GRAPHICS EM CODIGO 


Este programa, versao em codigo, foi especialmente concebido 
para este livro pelo Engenheiro Gino Douglas de Carvalho, autor 
do livro “40 Rotinas em Linguagem de Maquina”. 

Apresenta todas as facilidades de edigao e armazenamento da 
versao em Basicassociadaavelocidadeda Linguagem de Maqui¬ 
na, alem das seguintes possibilidades inexistentes em Basic: 

• grava as figuras independentemente do programa, assim co- 
mo tambem as carrega; 

§ permite ainda a copia instantanea das 12 figuras armazenadas 
nas variaveis para a tela, simulando movimento. 

Tudo ainda pode ser usado com outras rotinas em codigo, como 
rodar o video para a esquerda ou direita, inversor de video, etc... 
fornecidas na listagem 4 ou com outras de sua autoria. 

RESUMO DAS ROTINAS FORNECIDAS 

LISTAGEM 1 — Programas em Basic para carregar os codigos 
(do ENTER GRAPHICS). 

LISTAGEM 2 — ENTER GRAPHICS, em codigo. 

LISTAGEM 3 — Programa em codigo para usar as figuras em ou- 
tros programas, previamente escritos. 
LISTAGEM 4 — Rotinas adicionais em codigo: 

Simular movimento 

Rodar o video para a esquerda, para a direita 
Scrool para cima em 1 coluna e 
Inversor de Video. 
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Este e um programs totalmente escrito em linguagem de ma- 
quina, possibilitandoassim maiorfacilidade de Edigaoeusodas 
figuras deste livro. Para melhoi aproveitarmos das vantagens re- 
sultantes do emprego desta linguagem, este programs tern fun- 
goes diferentes da sua versao em Basic. 

Antes de falarmos sobre o programs propriamente dito, va- 
mos explicar como coloca-lo no computador. Sendo um progra¬ 
ms relativamente longo, com 1240 Bytes, todo o cuidado sera 
necessario na digitagao, pois somente um Byte errado podera 
por tudo a perder. Para facilitar, Micron Software comercializa 
esse programs em cassete atraves do pedido incluso no final des¬ 
te volume. Se voce observar a listagem 2, verificara que ela e for* 
mada por tres partes principals: 1°) o enderego em hexadecimal 
(4082,408A,etc.); 2°) bytes dos codigos em si, tambem em hexa¬ 
decimal; 3°) um numero decimal corresponde ao check-sum dos 
8 bytes anteriores. 

A existencia do check-sum e que nos facilitara o encontro de 
qualquer erro de digitagao. Para iniciarmos devemos criar uma 
linha REM com pelo menos 1240 caracteres. Para verificarmos se 
esta linha esta correta, basta digitar PRINT PEEK 1651*PEEK 
16512 e se a resposta fori240 ou mais, estara correta. 

Em seguida digitamos o programs da listagem 1, que e um 
monitor para a entrada do programs da listgem 2. Para iniciar¬ 
mos a entrada de dados, digitamos RUN e, em seguida, o endere¬ 
go desejado em Hexadecimal. Por exemplo, no inicio digitare- 
mos 4082. Este enderego devera ser digitado com os 4 digitos ou 
nao sera aceito. Em seguida este enderego aparecera no canto 
inferior da tela e poderemos digitar os 8 bytes da listagem, sem 
espagos entre eles, por exemplo: 

7676AF3222403255 

Seguido de New-Line. Se nao forem digitados os 16 caracteres 
eles nao serao aceitos. Apos alguns segundos aparecera um nu¬ 
mero decimal apos os bytes, devendo este numero ser compara- 
do ao check-sum. Se eles forem iguais, os 8 bytes digitados esta- 
rao corretos, podendo prosseguir no enderego seguinte, que ja 
estara no canto inferior da tela. 

Quando se esta esperando a entrada dos 8 bytes, os seguin- 
tes comandos serao aceitos, chamados pela digitagao do primei- 
ro caracter e new-line: 


S-STOP: Interrompe a execugao do programa 

R-Recomega: volta a pedi r o enderego, recomegando a partir 
deste enderego. 

E-ERRO: Caso o check-sum nao esteja correto, digite este 
comando e o enderego anterior voltara a ser mostrado, devendo 
ser redigitados os 8 bytes. 

Como voce pode ver, nao e necessario digitar todo o progra¬ 
ma de uma so vez, pois podemos colocar os bytes a partir de 
qualquer enderego, sendo inclusive uma boa pratica fazervarias 
gravagoes parciais conforme se vai digitando o programa. O uni- 
co cuidado a tomar sera sempre digitar os codigos nos endere- 
gos indicados (listagem 2) para que o check-sum tenha validade. 

Apos totalmente montado, devemos deletar as linhas 10A a 
1090, deixando somente a linha REM e efetuar uma gravagao 
antes do teste. Para podermos utilizar o programa, devemos re- 
servar a area acima do RAMTOP para as doze figuras, atraves dos 
comandos: POKE 16388,0 e POKE 16389,94 seguindo-se por 
NEW e pela carga do programa do cassete. 

Para rodarmos o programa utilizaremos o comando RAND 
USR 16516. Caso esteja tudo correto, aparecera o MENU nas 
duas linhas inferiores da tela, conforme mostrado abaixo: 

FIG VER-1 ALT-2 APG-3 LST-4 SV-5 
0 LD-6 SVT-7 LDT-8 COP-9 AN-0 

Sempre que estivermos no MENU bastara digitarmos NEW- 
LINE para voltar ao Basic. O comando RAND USR 16516 alem de 
comegar a execugao tambem limpa a area acima do RAMTOP, 
onde ficarao as figuras. E indispensavel que a primeira chamada 
sejafeita atraves desta forma, para garantirmos que naoexistirao 
caracteres indesejaveis na area das figuras. Porem se tivermos 
feito varias figuras e, por um motivo qualquer, tivermos que retor- 
nar ao Basic, se utilizarmos RAND USR 16516, perderemos as fi¬ 
guras existentes. Devemos digitar o seguinte: 

10 POKE 16418,0 
20 RAND USR 16536 

Com isso, entramos no programa sem apagar as figuras ja 
existentes, porem nao deve ser utilizado, assim que carregamos 
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o programa. 

Vamos explicar agora as variasfungoesdeste programa. Nos 

trabalhamos com o conceito de figura corrente, ou seja, a maio- 
ria das fungoes so tera efeito sobre a figura que estiver sendo 
mostrada no momenta, que denominaremos de figura corrente. 
No canto esquerdo do MENU temos a seguinte identificagao que 
mostra quai e a figura corrente: 

FIG 

0 

No caso a figura corrente e a de numero 0, podendo ser utili- 
zadas 12figuras, numeradasde0a9, maisasfiguras "A" e a figu¬ 
ra "BPara trocarmos de figura corrente utilizamos a funpao 1 
(VER-1). Dititando-se 1 e urn numero valido de figura, esta figura 
passara a ser a figura corrente. 

A funpao 2 (ALT-2) permite alterarmos a figura corrente, po¬ 
dendo inclusive modifica-la totalmente. E o comando que utiliza- 
remos para a colocapao de novas figuras. Quando digitamos 2 a 
partir do MENU, aparecera a figura corrente natela.Na parte infe¬ 
rior aparecera: Linha:00 Coluna: 00, e no canto superior esquer¬ 
do aparecera um G piscante, que e o cursor. 

A indicagao linha: 00 e coluna: 00 e a posigao do cursor, po¬ 
dendo a coluna variar de 0 a 31, e a linha de 0 a 21. O "G" do cur¬ 
sor indicaqueestamosno modo Graphics. Se, porexemplo, digi- 
tarmos a tecla 1 aparecera ocaractere grafico naposigao0,0-eo 
cursor estava na posigao 0,1, conforme indicado abaixo. Note 
que nao utilizamos a tecla Shift, e que existe auto repetigao, 
assim como na versao em Basic. 

O cursor pode ser mudado para “I”, siginificando que pode- 
mos entrar com caracteres inversos, atraves de Shift 2, a voltar- 
mos para "N ”, caracteres normais, atraves de Shift 1,Para voltar- 
rmos'ao cursor "G”, basta digitar Shift 9. Podemos movimentar o 
cursor atraves das teclas Shift 5, Shift 6, Shift 7 e Shift 8, sendo 
que o movimento do cursor, naoe destrutivo, podendo passar so¬ 
bre uma figura sem altera-la. Para encerrarmos a Edigao de uma 
figura devemos digitar New-Line e voltaremos ao MENU. 

A funpao 3 (APG-3) permite que apaguemos a figura corren¬ 
te, bastando digitarmos3 e respondermos “S” a pergunta "quer 
realmente apagar (S/N)” que aparecera na parte inferior do vi¬ 
deo, retornandoem seguida ao MENU. Se digitarmos “N retor- 


naremos ao MENU sem apagar a figura corrente. 

Afunp&o4(UST-4) permite que a figura corrente seja listada 
conforme seuscodigos. Porexemplo ocaractere grafico sera lis- 
tado como a letra “Q”. Os caracteres inversos nao serao altera- 
dos e os caracteres normais nao serao mostrados. Para retornar 
ao MENU digite qualquer tecla. 

A funpdo 5 (SV-5) permite gravar a figura corrente no cas- 
sete. Apos digitarmos 5, aparecera uma mensagem solicitando 
que seja preparado o gravador e pressione qualquer tecla para 
iniciar a gravagao. Esta tern os 5 segundos usuais de silencio-no 
im'cio, seguidos de aproximadamente de 15 segundos da grava¬ 
gao da figura propriamente dita. Apos o SAVE retorna ao MENU. 

A funpao 6 (LD-6) permite que fagamos o lado de uma figura 
gravada no cassete com a fungao 5 (SV-5), colocando-a na figura 
corrente, apagando o seu conteudo anterior. Aparecera a mensa¬ 
gem para preparar o gravador e pressionar qualquer tecla, para 
iniciar o LOAD. Apos o LOAD retornamos ao MENU. 

A funpao 7 (SVT-7) permite que salvemos no cassete todas as 
12 figuras ao mesmo tempo, sendo o procedimento similar ao da 
fungao 5 (SV-5). 

A funpao 8 (LDT-8) permite que recuperemos as 12 figuras 
salvas pela fungao 7 (SVT-7), sendo o procedimento similar ao da 
fungao 6 (LD-6). Tanto a fungao 7 (SVT-7) como a fungao 8 
(LDT-8) alteram a figura corrente para a figura 0. 

A funpao 9 (COP-9) permite que copiemos a figura corrente 
em qualquer outra figura, bastando digitar 9 e em seguida o nu¬ 
mero da figura que ira receber a copia da figura corrente. Em se¬ 
guida retornamos ao MENU, com a figura corrente sendo manti- 
da e a copia sendo efetuada na figura especificada. 

A funpao 0 (AN-0) permite que fagamos uma simulagao de 
animagao, mostrando sequencialmente todas as 12 figuras na te¬ 
la, ate que seja digitado qualquer tecla. A figura corrente apos o 
retorno ao MENU, podera ser qualquer uma das 12 figuras. 

Como podemos verificar, as 10 fungoes deste programa per- 
mitem uma grande versatilidade na edigao e manipulagao das f j- 
guras contidas neste livro, sendo de especial destaque a possibi- 
lidade de gravarmos figuras individuais no cassete, resultando 
em gravagoes compactas e com menor possibilidade de erros e 
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tempo de durapao. 

Para que possamos utilizarestasfiguras gravadas no cassete 
em programas em Basic, foi desenvolvido o programs da lista- 
gem 3. Para entrarmos com este programs, devemos criar uma li- 
nha REM com pelo menos 128 caracteres e utilizaremos o pro- 
grama da listagem 1, conforme explicado anteriormente. Depois 
do programs montado, este devera ser gravado em cassete, an¬ 
tes de ser testado. Depois que fizermos a copia poderemos testar 
com o comando: 

RAND USR 16516 

Com este comando, o RAMTOP sera abaixado para 32500, a 
rotina sera colocada a partir deste enderego e sera executado um 
NEW, voltando o comando para o Basic. Para carregarmos uma 
so fiqura, devemos digitar os sequintes comandos: 

POKE 32504,6 
POKE 32557,192 
POKE 32558,2 
CLEAR 
DIM A$(704) 

RAND USR 32500 

O CLEAR e necessario para assegurarmos que a matriz A$ 
seja a primeira a primeira na'area de variaveis. Para carregarmos 
todas as 12 figuras devemos digitar os sequintes comandos: 

POKE 32504,10 
POKE 32557.0 
POKE 32500,33 
CLEAR 

DIM F$(12,22,32) 

RAND USR 32500 

Depois de carregada a matriz A$, no caso de uma figura, ou a 
matriz F$, no caso de 12 figuras, e importante evitar o uso dos co¬ 
mandos RUN ou CLEAR, pois senao as figuras serao apagadas. 
Deve ser notado que, se a matrizes nao estiverem corretamente 
dimensionadas (A$(704) ou F$(12,22,32)), poderemos perder o 
controle do computador. 


LISTAGEM 1 


10 CLS 

20 PRINT "ENDERECO" 

30 INPUT I* 

40 IF LEN 1*04 THEN GOTO 30 
50 LET 1=(CODE I*-28)*4096+(CO 
DE I*(2)-28)*256+(CODE I*(3)-28) 
*16+C0DE I*(4)-28 
60 SCROLL 
70 PRINT I*;" 

80 INPUT X* 

90 IF X*="S" THEN STOP 
100 IF X*="R" THEN GOTO 10 
110 IF X*=”E" THEN GOTO 260 
120 IF LEN X*< >16 THEN GOTO 90 
130 PRINT X*:," "; 

140 LET A=0 

150 FOR J=1 TO 8 

160 LET Y*=X*( TO 2) 

170 LET X*=X*(3 TO ) 

180 LET X=(CODE Y*-28)*16+C0DE 
Y*(2)-28 
190 POKE I,X 
200 LET 1=1+1 
210 LET A=A+X 
220 NEXT J 
230 PRINT A 
240 GOSUB 1000 
250 GOTO 60 
260 PRINT AT 21,05" 

II 

270 LET 1=1-8 
280 GOSUB 1000 
290 PRINT AT 21,0; 

300 GOTO 70 
1000 LET 1*="" 
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USTAGEM 2 


1010 LET X~I 
1020 FOR K=1 TO 4 


1030 

l W l \ — X i T 

LET X1=1NT (X/16) 

4082 

76 

76 

AF 

•\y 

22 

40 


55 

694 

1040 

LET X2=X~16*X1 

408A 

45 

CD 

1 D 

41 

54 

5D 

13 

36 

618 

1050 

LET IT-CHRT (X 2+28)+1* 

4092 

00 

01 

FF 

20 

ED 

BO 

CD 

2 A 

948 

1060 

LET X=X1 

409A 

OA 

01 

00 

16 

CD 

F5 

08 

11 

508 

1080 

NEXT K 

40A2 

15 

45 

01 

40 

00 

CD 

6 B 

OB 

478 

1090 

RETURN 

40AA 

01 

01 

17 

CD 

F5 

08 

3 A 

55 

626 



40B2 

45 

C6 

1C 

D7 

CD 

06 

41 

CD 

991 



40BA 

F3 

40 

FE 

76 

C8 

FE 

1C 

CA 

1363 



40C2 

77 

41 

FE 

ID 

CA 

4B 

4 1 

FE 

1063 



40CA 

IE 

CA 

1E 

42 

FE 

IF 

CA 

AD 

988 



40D2 

41 

FE 

20 

CA 

87 

43 

FE 

21 

1042 



40DA 

CA 

FD 

43 

FE 

'*“» /-j 

CA 

5F 

44 

1175 



40E2 

FE 

23 

CA 

FI 

43 

FE 

24 

CA 

1291 



40EA 

53 

44 

FE 

25 

CA 

92 

41 

18 

879 



40F2 

C6 

CD 

BB 

02 

2C 

20 

FA 

CD 

1123 



40FA 

BB 

02 

44 

4D 

2C 

28 

F8 

CD 

871 



4102 

BD 

07 

7E 

C9 

CD 

ID 

41 

ED 

1059 



41OA 

5B 

OC 

40 

13 

1A 

FE 

76 

28 

624 



4112 

' 07 

7E 

12 

OB 

78 

Bi 

C8 


694 



411A 

13 

18 

FI 

21 

00 

5E 

01 

CO 

604 



4122 

02 

3 A 

3 0 

45 

3C 

3D 

CB 

09 

544 



412A 

18 

FB 

21 

47 

41 

AF 

4E 

^*3 

0 



4132 

46 

EB 

ED 

42 

38 

03 

3C 

18 

751 



413A 

F9 

09 

C6 

1C 

D7 

EB 

79 

FE 

1309 



4142 

01 

CB 

2 -.!> 

18 

E8 

OA 

00 

01 

503 



414 A 

00 

CD 

51 

41 

C3 

98 

40 

CD 

967 



4152 

2 A 

OA 

CD 

06 

41 

01 

00 

16 

351 



415A 

CD 

F5 

08 

1 1 

D8 

41 

01 

18 

781 



4162 

00 

CD 

6B 

OB 

CD 

F3 

40 

FE 

1089 



416 A 

1C 

38 

F9 

FE 

28 

30 

F5 

D6 

1134 



4172 

1C 

32 

55 

45 

C9 

CD 

2 A 

OA 

690 



417 A 

CD 

06 

41 

3 A 

55 

45 

3C 

FE 

802 



4182 

OC 

38 

01 

AF 

•;r .~y 

55 

45 

CD 

653 



418A 

BB 

02 

2C 

C2 

98 

40 

18 

E8 

899 



4192 

3 A 

55 

45 

F5 

CD 

51 

41 

CD 

1013 



419 A 

ID 

41 

E3 

7C 

32 

55 

45 

CD 

854 


60 


61 




41A 2 

ID 41 

D 1 

01 

cc 

> 02 EE 

> BO 

911 

41AA 

c;:: 

> 96 

i 40 

1 CD 2A 

i OA 

1 CD 06 

879 

4 1 B2 

41 

01 

00 

1 17 

■ CE 

> F5 

i 06 

! 11 

564 

41 BA 
41C2 

FC 

GC 

> 41 

> FZ 

01 
4 0 

IB 

FE 

! 00 
30 

' CD 
i C 2 

6 E 

96 

i OB 
! 40 

656 

j T 

41C A 

CD 

► ID 

4 1 

5 4 

5D 

13 

OB 

36 

560 

4 1 L '2 

oo 

1 ED 

BO 

C 3 

98 

40 

36 

3 A 

936 

4 1 DA 

26 

31 

00 

34 

00 

33 

3 A 


298 

4 .1. E 

41EA 

2 A 
2 E 

37 

2 C 

34 
3 A 

00 

37 

29 

26 

26 

OE 

00 

36 

2 B 
3 A 

271 

367 

41F2 

2 A 

...y 

00 


2 A 

2 £> 

3 | 


3 “T | 

41 FA 
4202 

2 A 
2 C 

2 6 

39 

37 

2 A 
00 

00 
10 

26 

38 

i:-" 

18 

26 

321 
284 

4 2 O A 

1 1 

31 

2 E 

3 3 

2D 

26 

OE 

oo 

260 

4212 

00 

00 

00 

00 

00 

28 

34 

31 

141 

4 2 1 A 

3 A 

3 3 

2 6 

OE 

CD 

2 A 

OA 

CD 

623 

4222 

0 6 

41 

AF 

."-y 

74 

43 

3? 

"Y CT‘ 

646 

422A 
4232 

43 

OB 

01 
. 42 

00 

01 

17 

13 

CD 

00 

F5 

CD 

08 

6 B 

1 1 
OB 

566 

420 

4 X A 

3E 

2 C 

3 2 

/ 6 

43 

01 

06 

17 

371 

4242 

CD 

F5 

08 

3 A 

/ 5 

43 

5F 

16 

817 

424A 
4252 

00 

F5 

CD 

(,) 

2 C; 
3 A 

41 

74 

01 

43 

13 

5F 

17 

16 

CD 

00 

562 

61 :!. 

425A 

CD 

2 C 

41 

CD 

BB 

02 

2 C 

28 

792 

4262 

08 

01 

00 

10 

OB 

78 

B 1 

20 

3 <h 5 

426A 

FB 

3 A 

75 

43 

4F 

06 

00 

60 

6 / 4 

4272 

69 

29 

29 

29 

2 9 

29 

09 

3 A 

.j / / 

427A 
4282 

74 

OC 

43 

40 

4F 

06 

19 

00 
5 6 

09 

3 A 

EB 
/ 6 

2 A 
43 

554 

465 

428A 

77 

D5 

E5 

CD 

BB 

02 

44 

4 D 

1 100 

4292 

3E 

FF 

2 C 

28 

04 

CD 

BE) 

07 

806 

429A 

7E 

El 

D 1 

72 

06 

00 

10 

FE 

950 

42A2 

FE 

FF 

28 

EO 

FE 

76 

CA 

59 

1 436 

42 A A 
42B2 

43 

4 A 

FE 

F E 

70 

28 

28 

5B 

3D 

FE 

FE 

71 

73 

28 

28 

971 

952 

42BA 

30 

FE 

74 i 

CA 

77 

43 I 

FE 

75 

1177 

4- 2 L.* 2 

CA 

7F - 

43 FE i 

DA i 

CA 1 

B3 

43 

1268 

42CA 

FE 

40 ■ 

30 B 8 1 

E5 - 

4F : 

3A ' 

76 

1034 


4 

2D2 

43 

FE 

2C 

20 

07 

oC. X 

D5 

44 

718 

4 

2D A 

06 

OO 

09 

4E 
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USANDO AS FIGURAS COM LINGUAGEM 
DE MAQUINA 


Os melhores efeitos no video so podem ser obtidos a partir de 
programas diretamente na linguagem da maquina (microproces- 
sadora) capazes de produzir a velocidade que programas inter- 
pretados em Basic nao dispoem. 

O programs ENTER GRAPHICS, em codigo, e o melhor comego e 
uma otima ferramenta. Alem das facilidades de edigao possui ro- 
tinas adicionais, como para a gravagao e carga individual das fi¬ 
gures, completando-se a sua versatilidade com as rotinas das 
listagens. 

Por ultimo, relembro que, para utilizar as rotinas propostas a se- 
guir, bem como o proprio programs ENTER GRAPHICS em codi¬ 
go, nao e necessario conhecimento de programagao Assembly 
Z-80. 


Para mostrarmos algumas das aplicagoes das figures dentro 
de programas em Basic, incluimos a listagem 4, que consiste em 
3 rotinas escritas em linguagem de maquina, que nos possibili- 
tam rodar o video para a esquerda, rodar o video para a direita e 
uma simulagao de animagao, mostrando sequencialmente as 12 
figures no video. 

Para colocarmos este programa no computador devemos 
criar uma linha REM com pelo menos 160 caracteres e, com o au- 
xilio do monitor da listagem 1, digitamos o programa.Antes de 
testar devemos fazer uma copia. 

Para rodarmos a primeira rotina, devemos colocaro numero 


da linha em que comegaremos a rodar o video para a esquerda na 
posigao 16516. E o numero da ultima linha a ser rodada na posi- 
gao 16517. Os numeros de linha permitidos variam de 0a23, nao 
sendo checado se estes numeros estao dentro da faixa permitida 
e se o numero inicial e menor que o inicial. Depois de “POKA- 
DOS” os valores, chamadosa rotina atraves de RAND USR16518. 

Por exemplo, se colocarmos “0” em 16516 e “23” em 15517, 
quando chamarmos a rotina atraves de RAND USR 16518, todas 
as 24 linhas do video serao rodadas uma posigao para a esquer¬ 
da, sendo o conteudo da margem esquerda copiado na margem 
direita. 

Masse colocarmos “9” em 16516e “12” em 16517, somente 
as linhas 9,10,11 e 12 serao rodadas, sendo que o resto do video 
permanece inalterado. 

Para a segunda rotina, rodar o video para a direita, o procedi- 
mento e identico somente variando o enderegao de chamada, 
que e executada pelo comando RAND USR 16567. 

Para utilizarmos a terceira rotina, devemos primeiro ter di- 
mensionado uma matriz F$(12,22,32) e esta matriz devera ser a 
primeira na area de variaveis. A chamada sera atravos de RAND 
USR 16622. E, a cada chamada, sera copiado no video uma figure 
de numeragao maior que a anterior. Se quiser comegar por uma 
figure especifica, basta colocar na posigao o seu numero, na fai¬ 
xa de 1 a 12. 

Para a quarta rotina, inversor de video, bastara o comando RAND 
USR 16671 e, o video sera invertido. 

Para a quinta rotina, simulagao de tiro, devemos colocaro nume¬ 
ro da coluna na posigao 16716 e o numero da linha na posigao 
16717, pelo comando POKE. A rotina sera chamada pelo coman¬ 
do RAND USR 16692. 

Na primeira chamada o caractere que estiver na posigao indicada 
sera copiado na linha superior, e a posigao original ser& apagada. 
Chamando-se esta rotina repetidas vezes o caractere subira ate 
sumir no topo do video. 
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LISTAGEM 4 


EXEMPLO A — ANIMAQAO 
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O proprio programs Enter Graphics, versao em codigo, possui 
uma rotina para animagao. Opgao 0 do Menu. Um bom exem- 
plo e facil de entrar e com os bonecos da pagina 91. 

Usando-se apenas os quatro da primeira linha e o primeiro da 
esquerda da segunda linha, entre-os no Enter Graphics como 
figuras 0, 1, 2, 3 e 4, sempre na mesma posigao. A seguir 
usando a opgao 9 do Menu, que copia a figura correnteem 
outra figura, complete as demais usando as anteriores como a 
seguir: 5 e 6 igual a 4, 7 igual a 3, 8 igual a 2, 9 igual ale AeB 
igual a 0. As figuras iguais em seguida, 4, 5 e 6 e A, Be0 visam 
uma pequena parada nestas posigoes. 

Teste a animagao pela opgao 0. 

Mesmo que voce use figuras com a tela completa a velocidade 
sera igual a este exemplo, pois a opgao 0 AN copia a tela 
completa. 


EXEMPLO B: MOVIMENTOS DIVERSOS 


Este outro exemplo, toma “uma determinada imagem impressa, 
e desloca-a atraves do video, quer seja para cima, para baixo ou 
para os lados, o video todo, uma parte, ou mais de uma parte. 

Comececomalistagem 1 das paginas59e60, carregando os co- 
digos da listagem 4, pagina 68, sem o programa Enter Graphics. 

Esta rotina, fara com que um tanque de guerra fique passando 
pela tela da esquerda para a direita. A quaiquertecla pressionada 
(exceto Break) um missel e disparado. Se o tanque for atingido e 
dada a explosao pela inversao do video 4 vezes consecutivas. Ao 
final de 10 tiros e dado o numero de acertos e erros com a inver¬ 
sao do video. A dectetagao do ponto de encontro ou explosao e 
dado pela leitura da variavel Current Caracter, nos enderegos 
16398 e 16399 a linha n° 1605. 
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De qualquer forma, isto e apenas um exempio de o que se pode 
fazer “com os desenhos e as rotinas da iistagem 4”. Espero que 
voce deseje, naotudo mastigado, masossubsi'diosparaelaborar 
seus proprios programas animados. 

A f iaura das linhas 1100 a 1120 e a primeira da pagina 98, 

1100 PRINT . . liiUiiiliiililnH M 

1110 PRINT "QfflHH' 4 

1120 PRINT 

1121 LET E«0 

1122 POKE 16516,0 

1123 POKE 16517,2 

1124 LET A=0 

1125 LET S=0 
1130 LET T=0 
1135 RAND 

\136 LET R=INT <RND*10> 

1140 PRINT AT 2l,R$"+" 

1142 POKE 16716,R 
1144 POKE 16717,21 
1250 RAND USR 16518 
1260 IF INKEY$< > w " THEN LET S»1 
1280 IF PEEK 16717=3 THEN GOTO 1 
600 

1290 IF S=1 THEN GOSUB 1400 

1300 GOTO 1250 

1330 GOTO 1135 

1400 RAND USR 16692 

1420 RETURN 

1500 FOR Z=1 TO 8 

1510 RAND USR 16671 

1520 NEXT Z 

1 t= v7 r ? L FT A=A+ 1 

1525 IF T=19 THEN GOTO 1125 

1530 RETURN 

1600 PRINT AT 3,R$ M "$ 

1605 LET D«PEEK <(PEEK 16398+256 
♦PEEK 16399)-34) 

1610 IF DOO THEN GOSUB 1500 
1620 LET E=E+1 
1625 IF E=10 THEN GOTO 1650 
1630 GOTO 1125 

1650 PRINT AT 10,5$"FORAM DEZ CH 
ANCES" 

1660 PRINT AT 12,2$"...E VOCE AC 
ERTOU ";A 

1670 RAND USR 16671 
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PARTE IV 


OS DUZENTOS DESENHOS 



OS 200 DESENHOS 


Entre as figuras fornecidas neste capitulo espero que voce en- 
contre a que deseja Em todo caso, se nao encontrar, certa- 
mente nos outros capitulos voce obtera um meio de videomicrar 
a sua figura. 

Quanto as figuras fornecidas, voce observara que na mesma pa- 
gina, a mesma figura e representada por letras e/ou numeros das 
teclas dos respectivos simbolos graficos. 

A razao de utilizarmos esta codificapao intrmsecaao teclado Sin¬ 
clair, e simples de compreender. Vejamos a espaponave abaixo: 




E formada por quais caracteres graficos? 

Seria BBS ou ? 

Quadriculando-sea imagem e possivel a identificapao dos carac¬ 
teres, mas daria para le-los se fossem soletrados, ditando-se e 
identificando-os rapidamente no teclado? 

Por exemplo: o que voce prefere, ler ou digitar: 

" Hl Wm , "ou “1234567 ” 

Antes de tentar o seu modo tente o nosso. Veja como entrar e 
usar figuras a partir do programs ENTER GRAPHICS, nas versoes 
Basic e Linguagem de Maquina. 

Observapao: A letra P, nas listagens a seguir, podendo ser digita- 
da nos programas Enter Graphics, significa um inverse space. 
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SOFTWARE PARA 
MICROCOMPUTADORES SINCLAIR 


MICRON SOFTWARE 

O PROGRAMA ENTRE GRAPHICS EM C6DIGO, USADO NESTE 
VOLUME, COM AS ROTINAS ADICIONAIS DA LISTAGEM 4 EM 
UM UNICO CASSETTE POR APENAS 1 ORTN. 


ENTER GRAPHICS 

Programs em codigo com facilidades de edigao para imagens 
com caracteres graficos. Armazena ate 12 figuras de 22 linhas. 
Possibilita alteragoes futuras, apagar, listar, gravapao e carga 
das imagens, independentemente do programs e ainda Simula 
movimento, copiando instantaneamente as doze imagens para o 
video. 


A LISTAGEM 4 

Inclusa no ENTER GRAPHICS, compoe-se de rotinas extrema- 
mente uteis para elaborapao de jogos. Simulam movimento, ro- 
dam o vido para a esquerda ou direita, scrool de 1 coluna para 
cima (tiro) e inversor de video. 


BLOCO 

PARA DESENHO 


Bloco para Mapeamento do Video Sinclair. 

50 folhas tamanho oficio com duas telas de 22 linhas por folha, 
por apenas 0,3 ORTN. 

Apresenta, por folha, uma tela com 22x32 posigoes e outra de 
44x64 posigoes. Contem ainda uma listagem ampliada dos sim- 
bolos graficos com as teclas de localizagao. 

As paginas da parte IV deste volume sao deste bloco com 
redugao de 45%. 



SOFTWARE PARA 
MICROCOMPUTADORES SINCLAIR 

ZX SOFTWARE 

OS QUATRO MELHORES PROGRAMAS EM CODIGO, JAMAIS 
PRODUZIDOS PARA UM SINCLAIR EM UM UNICO CASSETE. 
POR APENAS 1,5 ORTN. TODOS PARA 16K DE RAM, COM 
SLOW 

ASSEMBLER 

Escreva os seus programas em codigo, usando diretamente os 
mnemonicos do Z80 com este Editor e Monitor de Assembly. In- 
terpreta todas as instrugoes do Z80. Oferece excelentes facilida- 
des de edigao, manipulagao do cursor, codigos de erro, entrada 
de texto, numeros, labels, repetigao de tecla, etc... 

DISASSEMBLER 

Le codigos no Assembly do Z80. Fornece os enderegos em deci¬ 
mal, os codigos em hexadecimal seguidos dos mnemonicos 
completos. Interpreta todas as instrugoes do Z80. 

COMPILER 

Transforme instantaneamente os seus programas em Basic em 
programas em codigo, usando o Compiler. Aceita quase todos os 
comandos do Basic Sinclair e passa a rodar os programas ate 50 
vezes mais rapido. 

MONITOR 

Programa para estudo de programas em codigo. Permite listar a 
Memoria, Registers e Flags. Pode-se ainda introduzir Break¬ 
points, converter Hex para Decimal, decimal para Hex etc... 

Distribuido por: 


PUBLICAQOES 

MICRON ELETRdN/CA 


PARA MICROCOMPUTADORES 



SINCLAIR E MARCA REGISTRADA DE SINCLAIR RESEARCH LTD. 


9 200 DESENHOS PARA TK E CP200 

Mais de 200 desenhos para jogos e ilustragoes, codificados. 

Programas para: edigao dos desenhos codificados; copia instantanea do 
Display, simulando movimento; transposigao de video entre programas, etc... 
Ensina as tecnicas de video, mapeamento, movimento, etc... 


9 40 ROTINAS EM LINGUAGEM DE MAQUINA 

Rotinas para aumentar o desempenho de seus programas em Basic ou em 
Linguagem de Maquina. Soma, Subtragao, Multiplicagao e Divisao de strings e 
numeros binarios. Scrool e rodar o video em todas as diregoes, etc... 


• HARDWARE SINCLAIR 

Led Monitor, Reset, Fonte, Superaquecimento, Monitor de Video, Interfacing a 
PIO, Expansao interna de RAM de 2, 4, 8 e 16K, Portas in/out, Teclado, Lay-out 
dos micros Sinclair e dos circuitos impressos, incluindo esquema dos micros 
Sinclair ZX. 


MICRON ELETRONICA 



m 30 JOGOS PARA TK82 E CP200 

Damas — Labirinto — Enterprise — Golfe — Velha — Visita ao Castelo — Cas- 
sino — Roieta Russa — Corrida de Cav&los — Vinte e Um Cubo Magico 
Senha — Banco Imobiliario — Forca — Dados — Invasores — etc. 

PROGRAMAS NO CODIGO DA MAQUINA 

Inversao de Video — Som por Software — Labirioto — Destrava Soft. 


® CODIGO DE MAQUINA PARA TK E CP200 

Numeros Binarios e Hexadecimais — Arquitetura do Z80 — Editando em Codi- 
go _ Programa para Edigao — As Instrugoes do Z80 em Exempios — Sub-roti- 
nas da ROM — A ROM de 8K — Dicionario das Instrugoes — HEX X Mnemoni¬ 
cs _ Hex X Decimal — Incluindo os Programas: Scroll — Save Display no 
Ram Top — Contadores de Tempo ou Ponto — DataFile— Renumber — Labi¬ 
rinto — Som por Software — Micron Pao — Bombardeio, etc... 


® DICIONARIO DO BASIC SINCLAIR 

Para os micros ZX81, NEZ8000, CP200, TK82C e TK83, TK85, RINGO, AS1000, 
etc... Reune todas as Instrugoes — Fungoes — Operadores e Caracteres descri.- 
tos e exemplificados em ordem alfabetica. Inclui Divisao do Basic Sinclair — 
Convertendo outros Basics —■ Contando os Bytes Economizando Memoria. 


* APLICAQOES SERIAS PARA TK85 E CP200 

Quern e Sinclair — Convertendo outros Basics — Contando os Bytes — Econo¬ 
mizando Memoria — Fluxogramas — Top Down — Erros da ROM Conhe- 
cendo a Impressora — Chaining Programas — Sub-Rotinas em Cassete 
Folha de Pagamento — Balancete — Corregao Monetaria do Imobilizado 
Das Contributes do IAPAS — Contas a Receber — Cadastro de Clientes — 
Conta Bancaria — Corregao de Provas — Processador de Textos — Estatistica 
— Custo — Orgamento Domestico — Ramtoper em Codigo — etc... 


• 45 PROGRAMAS PRONTOS PARA RODAR EM TK82C E NE Z8000 

Arquivos — Estoque — Plano Contabil — Folha de Pagamento — Agenda Tele¬ 
fonica — Caga ao Pato — Trilha — Jogo da Velha — Forca — Dado Tabelas 
Tabuadas — Conversao de Coordenadas — Media — Progressao — Tabela Pri¬ 
ce — Fibonacci — Depreciagao — Renumerador de Linhas em Codigo — Etc... 



